(disassemble-internal): If function is autoload, load it.

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index b60ba5a2385ba8878f2809b835115545a14802fa..82933bd5d935cc46937f8fc4269833faa626761e 100644 (file)
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -79,6 +79,10 @@ redefine OBJECT if it is a symbol."
            obj (symbol-function obj)))
     (if (subrp obj)
        (error "Can't disassemble #<subr %s>" name))
+    (if (and (listp obj) (eq (car obj) 'autoload))
+       (progn
+         (load (nth 1 obj))
+         (setq obj (symbol-function name))))
     (if (eq (car-safe obj) 'macro)     ;handle macros
        (setq macro t
              obj (cdr obj)))